krümmungsruckfrei

Übergang knickfrei (glatt)

C = (2, 2)
D = (5, 3)
b = Segment(C, D)
mb = Slope(b)
A = (-3, 1)
B = (-2, 2)
a = Segment(A, B)
ma = Slope(a)
E3: x(C)^(2)
E4: (2 * x(B))
D3: x(C)^(3)
C2: x(B)^(4)
C3: x(C)^(4)
D4: (3 * x(B)^(2))
B4: (5 * x(B)^(4))
C4: (4 * x(B)^(3))
B2: x(B)^(5)
B3: x(C)^(5)
F3: x(C)
TZ0: {"r", "s", "u", "v", "w", "z"}
D2: x(B)^(3)
E2: x(B)^(2)
c = 1
F2: x(B)
d = 1
H2: y(B)
H3: y(C)
H4: ma
H5: mb
e = 1
G3 = 1
G4 = 0
G5 = 0
F4 = 1
F5 = 1
B5: (5 * x(C)^(4))
C5: (4 * x(C)^(3))
D5: (3 * x(C)^(2))
E5: (2 * x(C))
B6: (20 * x(B)^(3))
C6: (12 * x(B)^(2))
D6: (6 * x(B))
E6 = 2
F6 = 0
G6 = 0
H6 = 0
E7 = 2
F7 = 0
G7 = 0
H7 = 0
B7: (20 * x(C)^(3))
C7: (12 * x(C)^(2))
D7: (6 * x(C))
G2 = 1
LGS: {{B2, C2, D2, E2, F2, G2, H2}, {B3, C3, D3, E3, F3, G3, H3}, {B4, C4, D4, E4, F4, G4, H4}, {B5, C5, D5, E5, F5, G5, H5}, {B6, C6, D6, E6, F6, G6, H6}, {B7, C7, D7, E7, F7, G7, H7}}
LGSZ1 = Element(LGS, 1)
LGSZ2 = Element(LGS, 2)
LGSZ3 = Element(LGS, 3)
LGSZ4 = Element(LGS, 4)
LGSZ5 = Element(LGS, 5)
LGSZ6 = Element(LGS, 6)
rrefLGS = ReducedRowEchelonForm(LGS)
f(x) = (Element[rrefLGS, 1, 7] * x^(5)) + (Element[rrefLGS, 2, 7] * x^(4)) + (Element[rrefLGS, 3, 7] * x^(3)) + (Element[rrefLGS, 4, 7] * x^(2)) + (Element[rrefLGS, 5, 7] * x) + Element[rrefLGS, 6, 7]
g(x) = If[x(B) ≤ x ≤ x(C),f]
text1 = TableText({TZ0, LGSZ1, LGSZ2, LGSZ3, LGSZ4, LGSZ5, LGSZ6}, "|0000010_0100000r")
rrefLGSZ1 = Element(rrefLGS, 1)
rrefLGSZ2 = Element(rrefLGS, 2)
rrefLGSZ3 = Element(rrefLGS, 3)
rrefLGSZ4 = Element(rrefLGS, 4)
rrefLGSZ5 = Element(rrefLGS, 5)
rrefLGSZ6 = Element(rrefLGS, 6)
text2 = TableText({TZ0, rrefLGSZ1, rrefLGSZ2, rrefLGSZ3, rrefLGSZ4, rrefLGSZ5, rrefLGSZ6}, "|00000010_0100000r")
LGS0: {{D2, E2, F2, G2, H2}, {D3, E3, F3, G3, H3}, {D4, E4, F4, G4, H4}, {D5, E5, F5, G5, H5}}
rrefLGS0 = ReducedRowEchelonForm(LGS0)
h(x) = (Element[rrefLGS0, 1, 5] * x^(3)) + (Element[rrefLGS0, 2, 5] * x^(2)) + (Element[rrefLGS0, 3, 5] * x) + Element[rrefLGS0, 4, 5]
k(x) = If[x(B) ≤ x ≤ x(C),h(x)]
i = false
j = true